home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.12 Dec 89 / LISP sources / text / HanoiTowers
Encoding:
Text File  |  1988-10-23  |  490 b   |  17 lines  |  [TEXT/CCL ]
  1. ; towers of Hanoï game
  2. ; translated in Allegro Common Lisp by Jean-Pascal J. LANGE.
  3. ; © Copyright 1988 Jean-Pascal J. LANGE.
  4.  
  5. #|
  6.   use: (Hanoi #disks tower1 tower2 tower3)
  7.   e.g.: (Hanoi 3 "A" "B" "C")
  8. |#
  9.  
  10. (deFun Hanoi (nDisks fromPin toPin usingPin)
  11.   (cond ((> nDisks 0)
  12.          (Hanoi (1- nDisks) fromPin usingPin toPin)
  13.          (moveDisk fromPin toPin)
  14.          (Hanoi (1- nDisks) usingPin toPin fromPin) ) ))
  15.  
  16. (deFun moveDisk (fromPin toPin)
  17.   (format t "~&~D -> ~D" fromPin toPin) )